* lisp/pcmpl-gnu.el (pcomplete/tar): large-file-warn-threshold can be nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0da52a4651cd675b3e0a7ec79799cf8eeff23349..5ce8207c3668221f5846381d7191607493db0ecd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-12-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * pcmpl-gnu.el (pcomplete/tar): large-file-warn-threshold can be nil
+       (bug#9160).
+
        * dired-aux.el (dired-query): Don't assume help-char is modifier-free
        (bug#10191).
 

diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index b2c8de6ec2fbc34e6c276251e4afbf7784000a43..608a9dc2e8800e54c0d1c0e4c06637196abf32f3 100644 (file)
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -309,7 +309,8 @@
                      (let* ((fa (file-attributes (pcomplete-arg 1)))
                             (size (nth 7 fa)))
                        (and (numberp size)
-                            (< size large-file-warning-threshold))))
+                            (or (null large-file-warning-threshold)
+                                (< size large-file-warning-threshold)))))
                 (let ((file (pcomplete-arg 1)))
                   (completion-table-dynamic
                    (lambda (_string)